﻿Public Class Form4
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Botton3.Click
        Dim dlg As New Windows.Forms.FontDialog
        If dlg.ShowDialog() = DialogResult.OK Then
            Console.WriteLine(dlg.Font.ToString())
        End If
    End Sub
End Class